home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85mar.lbr / PAUSE.AQM / PAUSE.ASM
Assembly Source File  |  1985-09-15  |  2KB  |  66 lines
  1. ;
  2. ;       PAUSE - Breakpoint for submit files
  3. ;
  4. ;               Mark Anacker    07/25/83
  5. ;
  6.  
  7. ;       Equates
  8.  
  9. BOOT     EQU     0000H
  10. BDOS     EQU     0005H
  11.  
  12. BELL     EQU     7
  13. LF       EQU     10
  14. CR       EQU     13
  15.  
  16. ;       Code area
  17.  
  18.         ORG     0100H
  19.  
  20. START   MVI     C,9             ; "PRINT STRING" function
  21.         LXI     D,MSG1
  22.         CALL    BDOS
  23.  
  24.         MVI     C,1             ; "CONSOLE INPUT" function
  25.         CALL    BDOS
  26.         CPI     'A'             ; Did we get a big A ?
  27.         JZ      KILLIT          ; Yup
  28.         CPI     'a'             ; Did we get a small a ?
  29.         JZ      KILLIT          ; Yup
  30.  
  31.         MVI     C,9             ; Nope
  32.         LXI     D,MSG2
  33.         CALL    BDOS
  34.  
  35.         JMP     BOOT            ; Warm-boot the system
  36.  
  37. KILLIT  LXI     D,FCB           ; Point to our file name
  38.         MVI     C,19            ; "DELETE FILE" function
  39.         CALL    BDOS
  40.  
  41.         MVI     C,9
  42.         LXI     D,MSG3
  43.         CALL    BDOS
  44.  
  45.         JMP     BOOT            ; And exit to CP/M
  46.  
  47. ;       Data area
  48.  
  49. FCB     DB      1               ; Drive A:
  50.         DB      '$$$     SUB'   ; Submit processor file
  51.         DS      24              ; The rest of the FCB
  52.  
  53. MSG1    DB      CR,LF,BELL
  54.         DB      'Press A to abort batch, any other key to resume $'
  55.  
  56. MSG2    DB      CR,LF,LF,BELL
  57.         DB      'Batch processing continuing..',CR,LF,'$'
  58.  
  59. MSG3    DB      CR,LF,LF,BELL
  60.         DB      'Batch processing ABORTED!',CR,LF,'$'
  61.  
  62.         END     START
  63.  
  64. 
  65.